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TRS-80 translation by Rich Bouchard 


Relaaax... is a recreational program for the TRS-80 Model | or Ill with 
16K RAM. 


Please read the instructions before booting up the program. 
Removing distractions and sources of tension, such as glare 
on the screen, is essential to successful results. Turn down the 
brightness on your monitor to reduce eyestrain. 


If you spend hours and hours in front of your television set or monitor play- 
ing games, hacking away or telecommunicating (so who doesn’t?), you prob- 
ably leave those sessions with assorted aches and pains. They may be as mild as 
a slight headache or as serious as a stiff neck which lasts for days. Stress, color 
saturation, unnatural sitting positions, and fatigue are the likely culprits 
responsible for these annoyances, usually related to a straining of one or more 
muscle groups. A hot bath or a nice massage often is a good solution to these 
problems, but when they are impractical or unavailable, you can use your com- 
puter (and Relaaax...) to help you relieve the tension it has helped to create. 
With this series of programs, you can learn to relax after any stressful situation 
likely to manifest itself in the muscles. : 

Nothing about relaxation training is magically curative. The effectiveness of 
any relaxation training method is related to how well the person involved can 
take instruction and wants to relax. The techniques presented in this series of 
programs are derived from hypnosis and behavioral relaxation procedures. 
Relaaax... has some advantages over both of them — you can do it in the 
privacy of your own home, in comfortable surroundings (or even in your of- 
fice), and it doesn’t cost $50 an hour. 


Relaxation Theory and Practice 

The actual techniques and text were derived from methods developed by 
psychologists Thomas C. Simek and Richard M. O’Brien, and presented in 
their book, Total Golf (Doubleday and Co.). They describe a uniquely in- 
teresting approach to improving your golf game: coupling the process of 
swinging the club with behavioral and psychological techniques such as relaxa- 
tion training. 


The theory is rather simple. When we experience stress, the muscles. begin to 
ache. Relaxation cannot take place unless you learn to relax the muscles. This 
can, of course, be accomplished with drugs, by physically manipulating the 
muscles through massage, or by applying heat to the strained area. Another 
way to relieve muscular tension is by cueing yourself to focus on the changes 
you feel when you deliberately tense up and relax. Knowing what the body’s 
response is, you can train yourself to respond to these cues consciously. When 
using this relaxation program, you will tense specific parts of your body in se- 
quence. Then sounds (heard through a speaker/ amplifier connected to the 
cassette AUX jack) and pictures will cue you to relax these parts. By focusing 
on the different feelings produced in the tension cycle and in the relaxation cy- 
cle, and associating the relaxation response with the cues, you should be able 
to train yourself in a short time. 


Beginning To Relax 
Adequate preparation of yourself and of the immediate environment is im- 
portant. It could mean the difference between success and failure. First, remove 
any of the contributing causes of eyestrain, such as bright lights. You should | 
always practice the following precautions before any long computing session. 
They are extremely important to keep in mind when using this program: 


@ Make sure no glare is reflecting off your monitor. Sources can be either 
natural or artificial light — a nearby lamp, or sunlight from a window. 

@ Position yourself in front of the monitor so that you don’t have to tilt your 
head, which causes strain on the neck muscles. 

@ Adjust the contrast and brightness on your screen so that white regions ap- 
pear grayish. 

@ Seat yourself in a chair that is firm, yet comfortable, preferably one with 
arms. Place your feet firmly on the floor. 

@ Position yourself 2'% to 3 feet from your monitor. 


You should be aware of three more precautions before you begin. First, if 
you wear hard contact lenses, please remove them. Second, if you have chronic | 
back trouble or musculoskeletal disease, talk to your physician before using 
this program. Last, you should not use this program if you have damaged your 
muscles through injury such as a pull or a tear. 


Relaaaxing... 

The first thing you will see when you boot up the relaxation program is the 
initialization message. The screen will do nothing for a while, then display a 
menu. Pressing Clear exits the program. Choice ‘‘E’’ stands for ‘‘Entire Pro- 
gram.’ It is a tutorial to help you learn the instructions as you go along. The 
goal is to teach you well enough so you don’t have to read them every time you 
use the program. Four or five sessions are sufficient for most people. To the 
right of the text is a human figure. When the text explains which part of your 
body to focus on, the figure’s corresponding muscle group is indicated by an 
arrow (TRS-80 Model I) or graphic hand (TRS-80 Model III). The program 
organizes the muscles into four groups: 


@ Hands, Biceps and Triceps 

@ Forehead, Nasal Area and Mouth 
@ Neck, Shoulders and Stomach 

@ Thighs, Calves and Feet 
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A letter appears near the figure to remind you which particular muscle you 
are working on. All of this gradually weans you away from the text by cueing 
you. 

Auditory cues reinforce these visual cues. Distinctly different pitches repre- 
sent each of the main muscle groups. Then one, two or three higher pitches tell 
you whether you should work on the first, second or third muscle in the group. 
For instance, the tone for relaxing the hands is approximately middle C, 
followed by a single tone of higher pitch, which tells you to work on the first 
group, first muscle. After using the program a few times, you will be able to sit 
in front of the computer with your eyes closed and cue yourself only by the 
tones. 

The ‘“‘R’’ option, ‘‘Review Sequence,”’ presents the visual and auditory 
cues, but with highly abbreviated text. With both the “*R’’ and ‘‘E’’ options 
the only contact you need to have with the computer is to press a key to flip the 
text or drive the program. When the screen says ‘“Tense’’, contract the muscle 
before you hit a key. 


AAAUUUMMM... 


The ‘‘D’”’ menu option is a program called the ‘‘Deep Breathing Trainer.’’ 
Use it to develop a deep and rhythmic breathing pattern. Simply sit near the 
keyboard. Strike a key as you begin to inhale, and another as you Start to ex- 
hale. Press Clear to go back to the menu. Feedback on the screen is in the form 
of a graph. By watching the line peak and dip you can develop a deep and even 
breathing pattern. Try it! 


Self-Suggestion 

Self-suggestion is an important part of these programs. When using the 
relaxation training program you will notice a timing bar at the bottom of the | 
screen. During the relaxation phase of the exercises you should concentrate 
your attention on the bar. As the bar gradually disappears, repeat positive 
statements to yourself. Let your body become more and more relaxed as the 
bar gets smaller and smaller. With each decrease in size let yourself feel looser 
and limper. You may need some practice, but you will find self-suggestion an 
essential part of using the relaxation program. | 


Peter J. Favaro is a school psychologist and will receive his 
doctorate in School and Clinical Psychology from Hofstra 
University in August. He also teaches psychology at Hofstra and 
is an educational and recreational video game design consultant. 


Richard M. O’Brien, Ph.D. is a clinical psychologist and pro- 


fessor of psychology at Hofstra University. He has worked exten- 
sively in the areas of industrial and sports psychology and is the 
author of Total Golf (Doubleday and Co.) as well as Industrial 
Behavior Modification: A Learning Based Approach to Business 
Management (Doubleday and Co.). 


Variables 


A$: Messages to be printed in large 
letters. 
AR$: Contains a picture of a 
graphic hand on the Model III, 
and a right arrow on the Model I. 
CH: ASCII value of the character 
being printed. 

CO$: Character at the end of a 
string read from data. 

CS: Number of spaces to be placed 
between graphic letters. 

D: Value read from data. 

DX, DY: Changes in the x and y 
positions of the graphic pixel used 
in the Deep Breathing module. 

EC: Equals 4, the number of 
graphic letters stored in data out 
of ASCII sequence. 

EF: Equals 0 unless the ENTER 
key is held down when the pro- 
gram is first run, telling the pro- 
gram to display the graphic 
character set as it is defined. 

FC: Equals 63, the ASCII value of 
the first graphic character stored in 
data. 

HP: PRINT@ position for cursor 
home. 

J, Ji, J2,. J3: Misc. loops. 

LC: Equals 90, the ASCII value of 
the last graphic character stored in 
data in ASCII sequence. 

LS: Number of characters between 
lines of graphic text. 

LT$(*): Array containing the 
graphic characters used to print a 
message on the screen. 

LY: Last non-zero value on DY. 


M3: Equals —1 if the program is 
running on a Model III. 

MAS: Graphic string containing a 
picture of a man. 

MP: PRINT@ position where MA$ 
is displayed. 

NS: Number of different sounds 
defined. 

P: PRINT@ position for next 
graphic character. 

PA: PRINT@ position for AR$. 
PL: PRINT@ position for the one 
or two characters displayed to the 
left of the graphic man. 

PS: Temporary storage of 

variable P. 

Q: Position within array LT$(*) of 
the letter being read from data. 
S(*): Values of each sound. 

SD: Sound duration. 

SH: Number of lines of graphic 
text screen. 

SN: Number of times to play a 
given note. 

SO: Note to be played. 

ST: Sound tone. 

W: Width of graphic text screen. 
X, Y: SET(x,y) position of graphic 
pixel in Deep Breathing module. 
Z: Used to determine how much 
memory is available to be cleared 
as string space. 

ZA: Equals 1.155 on a Model III, 
or 1 on a Model I. This value is 
used to adjust sounds and delay 
loops so their durations are the 
same on the Model III as they are 
on the Model I. 
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Jump to the routine that reads in the machine language pro- 
grams stored in lines 100-200. 


10 CLS:PRINT' INITIALIZING, ONE MOMENT PLEASE. ":G0TO60000 

100 BATA 24,50, 235, 33,0, 69, 62,32, 229,47, 119,355, 14,252 

110 DATA 225,1,64,0,9, 21,32, 242,225, 201,33,9, 40,4, 15 

120 DATS 197,229,1,56,0,229, 209, 29, 237,176, 42,32, 18, 225 

130 Bata 1,64,0,9,193, 16,235,225, 201, 126, 245, 35, 126, 254 

140 DATA 44,194,151, 25,35, 205,55, 35, 241, 229, 245, 205, 127 
180 BATA 10,241,214,49,40,24,61,40,9,61,40,176,61,40, 195 

140 BATA 195,151, 25,229, 209, 205, 44, 27,11, 237,47, 255, 44 

170 DATA 225,201, 229,38,0,41, 41,235, 225, 109, 38,0 

180 BATA 41,41, 229,193,42,1, 211,205, 213, 225, 43, i124, 181 

190 DATA 32,251,62,0, 211,255, 213, 225, 43, 124, 181,32, 251 

200 DATA 11,120,177, 32,229,225, 201 

Subroutine to print the string contained in A$ on the screen 
using large, graphic characters. 

300 FORU=1TGLEN(A3) 

S10 CH=ASE (AIDS (A$, 0, 1)}: IFEHS=65THENSSOELSETFCH=44THENCH=LO+IEL 
SEIPCH=39THENCH=LC+2EL SE IFCH=44 THENCH=LC+3EL SEI FCH=38THENCH=LE+4 - 

320 IFCH=42THENP=P+1: 6070370 

330 IFCH=320RCH=37THENP=P+3: 6070570 

340 [FCHCS3THENCH=88 

300 PRINTOP,LTS(CH-FC): 

360 IFLEN(LT$(CH-FC) }=7THENP=P+2+CSELSEP=P+3+C5 

370 NEXT : 

380 PSINT(P/4)944+L5+HP-INT (HP /64) 844 

370 RETURN 

Start of main program. Clear string space, define most 
variables as integers, dimension some commonly used 
variables, and define some permanent variables. 

wO0 CLEARGO: Z=MEM-300: [F 232747 THENZ=32767 

sid CLEARZ: DEFINTA-Y:DIMCH,J,P,A¢ 

o20 M3=(PEEK (2933=73) 

soO IFMSTHENZA=1. 135: POKE14912, PEEK (16912) ORB: POKE S420, 1:ARS=Ch 
R$ i244) +CHRS (245) +CHRS (246) ELSEZA=1:AR$=" "+CHR$(93) 

240 GOSUBIOOO0 


Menu routine. Display graphic menu and accept user selection. 


600 CLS 

610 NAMEZ, 7000: G05UB2100 

620 GOSUB2000 

630 [FARS="E"THENGOSUBI O00: GOTO600 

£40 IFAS="R"THENSOSUBI100: 60T9400 

£30 [FAS="D"THENGOSUB1200: GOTO&00 

660 TFAS=CHRS (31) THENS2787 

679 6070620 

Entire Program option. 

1000 NAME? SCG: GOSUB2100 

1010 RETURN 

Review Sequence option. 

1190 NAME?, 6000: GOSUB2100 

1110 RETURN 

Deep Breathing option. 

1200 DY=0:DY=0:LY=-1 

Print graphic border and the letters “E” and “‘I.” 

i210 CLS:PRINT@192,LT$(69-FC) ; :PRINTO440, LT$(73-FC) ss PRINTS 964, § 
TRINGS (57,131); | 
1220 X=13:¥=23 

i230 FORJ=OTO4S: SET (12,0) :SET(i3, 0) :NEYTI 

If line is moving off the top or bottom of the screen, make it 
start moving horizontally. 

1240 TFY+DY<OORY+DY M4THENDY=0 

If line moves off the right of the screen, scroll the screen left 
one character (two pixels). 

1250 IFX+DX 31 26THENNAME4, 0: X=%-2 

Increment line position and draw 

the next point on the line. 

1260 F=X+DXs Y=¥+DYeSET (X,Y) 

Delay, then change direction if a key is struck. If CLEAR is hit 
return to the menu, otherwise continue drawing the line. 

1270 FORS=1TQ25S 7A: NEXT 

1280 4$=INKEY$ 

1290 TFAS=CHRS$ (31) THERRETURNELSEIFAS< }""THENDY=-LY:LY=DY¥: DY=1 
1300 BOTOi24¢ 

Subroutine to input a single character from the user and put it 
in A$, converting lower case characters into upper case. 

2000 AS=INKEYS 

2010 AS=INKEY$: IFS$=""THEN2019 

2020 IFAS>=CHRS (97) ANDAS<=CHR$ (122) THENAS=CHRS (ASE (A$) -32) 

2030 RETURN 
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Subroutine to read in a block of data from memory, and 
display it on the screen. 


Give some variables their initial values and clear the screen. 
2100 SP=0:H=64:LO=128:HP=0:PA=0: SH=14:C5=1:P=0 

Z1if SBSUBZBRC 

Read a string. If it’s ““*END*” then return from the subroutine. 
2129 REABAS 

2i30 TPAS="ZEND3 "THENRETURN 

If the first character of the string is an exclamation mark, then 
the string contains a special command. Determine which com- 
mand it is and branch to the proper routine. 

2140 [FLEFTS (A$, 1)="! "THENI=ASCCNIDS (A$, 2) )-64: ONGSOSUB2300, 2310 
peded, food, 2040, 2719, 260), 2370, 2420, 2430, 2450, 2460, 2470, 2480, 276 
, 2490: 60702120 


fei ail 


Store the rightmost character of the string. If it is a special 
command character, remove it from the string. 


2150 COS=RIGHTS(AS, 1): TFCO$="S"ORD0$="S"ORC08="/"THENAS=LEFTS$ (AS 
,LER(AS}-1) 

Graphically display the text string on the screen. 

2160 [FAS¢>"* THENGOSUBSOG 

Perform the action specified by the terminal string character, 
if any. 

Zi7® TFCOS="O"THENFORU=1TOZO003 74: NEXT ISG0TO2110 

2150 [FCO$="S" THENGGSUBZ000: SOTOZ110 

2190 [FCO$="/"THENBOSUB2O00: GOTO?120 

2200 GOTG2120 


Special command handlers. 


Commands A-D: Adjust position of man, screen width, line 
spacing, and cursor home position, respectively. 

2300 MP=VAL (MIDS (A$,3)):PRINTOHP, BAS: RETURN 

fold WEVAL(HIO$ (4%, 3)) :RETURR 

2526 LS=VAL{HID$ (A$, 3}):RETURN 

2300 HP=VAL(MIDS(AG,3)):PSHPsRETURR 


Command E: Play a tone a given number of times. 

2340 SNEVAL (NIDS(A$,3, 1)):S0=VAL (MIDS (A$, 5)} 

2390 FORJ=1TOSN: NANEL,S(S0): TF U¢ SSNTHENFORJ i=1 7085228: NEXT Ii 

2360 NEXTG: RETURN 

Command H: Draw an arrow pointing to a part of the man, and 
display a one or two character abbreviation for the body part. 
2370 PS=PsTFPACSOTHENPRINTSPA," =": :PRINTSPL, STRINGS (7,32)::PRI 
NT@PL+44, STRINGS (7, 32)s 

2380 [FLEN(A$)=2THENRETURN 

2590 PA=(ASC (MIDS (A$,3,1))-48) $644MP-4:PRINTOPA, ARS: 


2400 TPMIDS(A$,4,1)¢>". "THENPL=VAL (MIDS(A$, 4, 1)) #128-54+MP-49L EN 
(AS)ELSEPL=MP+441 
2410 P=PL:AS=MIDS (AS, 5): GOSUBI00: P=PS: RETURN 
Commands I-N: Adjust screen height, print a message 
centered over the man, print “TENSE,” print “REPEAT,” adjust 
character spacing, and move cursor, respectively. 
2420 SH=VAL (IDS (A$, 3)):RETURN 
243) AS=HIDS (A$, 3) 
244) PoHP-123-LEN (A$) £2- (LEN (A$) 35) :PRINTQINT (MP/&4) £44-128, CHRS 
(30) CHAS (261; CHR (30): GOSUBZO0: RETURN 
2450 Ag="TENSE": GOSUB2440: BNSUB2000: RETURN 
2460 Ag="REPEAT*: G0S5UB2440: BOSUB2000: RETURN 
2470 CO=VAL(MID$ (A$, 2)) :RETURN 
2485 P=P+UAL (MID$(A$,3}) :RETURN 
Command P: Draw the timer bar at the bottom of the screen. 
2490 PRINT#?40, STRINGS (63, 191) :: TPSH=1QTHENSH=15 
2500 RETURN 
Command G: Print a commonly used page of text and wait for 
a keystroke. 
2600 GOSUB7800 
2610 AS="REPEAT THE": SO5UB300 
2620 AS="TENSTON®: S0SUR209 
2630 AS="RELAXATION" : SOSUBI00 
2640 AS="CYCLE, TENSE": GOSUB300 
2600 AS="FIVE SECONDS, *:SOSUB360: GNSUB2000 
2660 RETURN 
Command O: Perform as command F, but print the word 
“RELAX” centered on the screen. 
2790 GOSURZG00:P=211:A$="RELAY": GOSUB300: GOTEI730 
Command F: Print the word “RELAX” centered over the 
cms figure, and delay while reducing the size of the timer 
ar. 
2710 SOSUB2860 
2720 AS="RELAY": BOSUB2440 
2730 FORJ=1TO400874 
2740 [FU=INT (120328) THENPRINTS 960, STRINGS (63, 199) :ELSEIFJ=INT (24 
OUZA) THENPRINTS960, STRINGS (43, 140): ELSEIF ISINT (340878) THENPRINTS 
FO, CHRS (30): 
2750 NEXTG: GOSURZ800: PRINTS940, STRINGS (63, 191}: RETURN 
Subroutine to clear the screen. 
2800 NAMES, SHE2S4+H: P=HP: RETURN 
Data for the full relaxation trainer. 
S000 DATA 'Ci28, 'A24, (N7EB,FULL RELAXATION, ZEYZ7PROGRAM3 
S010 DATA (C192, !Ni2Q, THIS PROGRAM IS, DESIGNED TO HELP, YOU LEARN 
TG, RELAY. # 
2020 BATA 'NIZ8,PLEASE READ THE, DOCUMENTATION, BEFORE USING, THIS 
PROGRAM, # 
. RELAAAX — 
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5030 DATA 'N266,"LET’S BEGING® 

5040 DATA 'E1/9,'A180, 'P, 'Di28,'B48,'MO,FIRST LET US,BECOME FAH! 

LIAR, WITH THE SCREEN. # 

5050 DATA ON THE RIGHT,SIDE OF THE,SCREEN THERE, 25 A FIGURE. 
5040 DATA TEXT WILL APPEAR, TO THE LEFT,OF THE FIGURE. # 

5670 DATA AT THE BOTTOM,OF THE SCREEN, THERE IS A,WHITE TIMER BAR 
.# 

5080 DATA THE FIRST FEW, TIMES THAT YOU, USE THIS PROGRAM, YOU WELL 
NEED TO8 

5090 DATA 'N-i28,PAY CLOSE,ATTENTION TO,THE TEXT. AFTER A WHILE, 
YOU WILL LEARN 

5100 DATA 'N-128, THE RELAXATION, INSTRUCTIONS, AND YOU WILL, ONLY 8 

EED T0,L00K AT THE# 

SilG DATA FIGURE AND,LISTEN TO THE,AUDITORY CUES T0,DO THE EXERC 
15E5.¢ 

3120 DATA TG PREPARE TRY,T0 [MAGINE A, TRANQUIL SCENE.? 

3130 DATA CONCENTRATE, ON THIS,SCENE ANDS 

3140 DATA ON YOUR, BREATHING 50,17 15 BEEP,AND RHYTHMIC. # 

Si3¢ DATA CLOSE YOUR EYES,SND THEN,GPEN THEN AGAIN,AT THE TONE.# 
Ree 

Sié0 DATA 'E1/9, THE FIRST,MUSCLE GROUP, YOU HILL RELAZ,IS THES 
Zi70 BATA "HANDS, BICEPS", AND TRICEPS, GROUP. # 

3180 DATA 'D64,THIS TONE WILL,SIGNAL YOU TOG,PREPARE TO,RELAX THI 

5, MUSCLE GROUP. #, '£1/8 

3190 DATA 'HS.H,BEGIN WITH THE, HANDS. THIS, TONE SIGNALS, YOU TQ F 
GCUS,ON YOUR HANDS. #, '£1/3,'E1/7 

S200 DATA TENSE THE HANDS, AND WRISTS BY,SQUEEZING YOUR, HANDS HAR 
DF , 

S216 DATA FEEL THE, TENSION IN YOUR, “FINGERS, WRISTS,",AND THE BA 

CKS,CF YOUR HANDS. # 


oD 


5220 DATA FEEL THE TENSION,FOR ABOUT,FIVE SECONDS. ,RELEASE THE,7 
ENSION SLOWLY. # : 
J230 DATA ENJOY FEELING,RELAXED. AS THE, BAR GETS, "SMALLER, LET", 


YOURSELF : 

3240 DATA 'N64,BECOME NORE.AND MORE,RELAXED.#, '0,'6, '£1/8, 'E1/7, 
ig 

5250 DATA 'H3.B,'N64,NOH YOU WILL,LEARN HOW TO,RELAX THE BICEPS. 
o : ; 

3260 DATA THIS TONE WILL,SIGNAL YOU TO,RELAXY THE, BICEPS. #, 'E1/3, 
fE2/7 

0270 BATA THIS 1S DONE BY,SQUEEZING THE,BICEPS THE WAY, YOU BO WH 
EN, SOMEGNES = 

S280 DATA SAYS...,RMAKE A MUSCLE.&,D0 NOT MAKE,A FIST WITH, YOUR 
HANDS. # 


5290 DATA BE SURE TO,REMEMBER TO,DO THIS WITH,BOTH ARNG. 4 

5300 DATA NOW LET THE,BICEPS RELAY. ,PUSH A KEY,AND FOCUS ON, THE 
BAR. . 8 

5310 DATA '0,'G, '£1/8,'E2/7, '0 

5320 DATA 'H3.1F,NOW YOU WILL,RELAY THE, TRICEPS AND TOPS,OF THE 
FOREARMS. # 

5330 DATA THIS TONE WILL,SIGNAL YOU TO,RELAX THE, TRICEPS AND,UPP 
ER FOREARMS. #, 'E1/8, '£3/7 

5340 DATA TO FEEL WHAT IT,1S LIKE TO TENSE, "THESE MUSCLES, *, PRES 
5 YOUR, FOREARMS# 

5350 DATA DOWNWARD INTO, THE ARNS OF A,CHAIR. FEEL THE, TENSION FO 
R FIVE SECONDS. # | 

5360 DATA 'Nb4,NOW RELAY...,LET YOURSELF,RELAY EVENS 

5370 DATA MORE AS THE BAR,GETS SMALLER,AND SMALLER. ,PLEASE PRESS 
ANY KEY. 

5380 DATA '0,'6, 'E1/8, !E3/7, '0 


m De 
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5390 DATA 'H,NOW YOU WILL,LEARN HOW TO,RELAY THE,"ECREHEAD, NOSE 
AND MOUTH. # 
5400 DATA THIS TONE WILL, SIGNAL YOU TO,PREPARE TO,RELAY THIS, MUS 
CLE GROUP. #, 'E1/5 
5410 DATA 'HO.F, THIS TONE WILL,SIGNAL YOU TO,RELAY THE, FOREHEAD. 
#,!E1/5, 'EL/4 
5420 DATA TENSE THE,FOREHEAD BY,FROWNING HARD. HOLD THE FROWN. £1 
VE SECONBS. # 
S43) DATA RELAY THE FROWN, AND ENJOY THE,PLEASANT, SENSATION. # 
5440 DATA '0,'8,{E1/ 5 1/6410 
5450 DATA 'HI.N,THIS TONE WILL,SIGNAL YOU TO,PREPARE TO,RELAY TH 
E NOSE.#, 'E1/5, 'E2/4 
S460 DATA FIRST TENSE, THE MIDDLE OF, YOUR FACE BY,SCRUNCHING UP,T 
HE NASAL AREA. # 
5470 DATA TRY 10 KEEP THE,FOREHEAD SMOOTH. ,TENSE THIS AREA,FOR A 
BOUT, FIVE SECONDS...4 
5490 DATO NOW BEGIN, TO RELAY, THIS AREA OF, YOUR FACE...¢ 
5490 DATA '0,'8,'E1/5, '£2/6, 10 
5500 DATA 'H1.M, THIS TONE WILL, SIGNAL YOU TO,PREPARE TO,RELAY TH 
E,HOUTH AREA. 2, 'E1/5, !E3/é 
S510 DATA TENSE THE MOUTH,BY PRESSING THE,LIPS TOGETHER,HARD...4 
5520 DATA HOLD THE TENSION,FOR ABOUT FIVE, "SECONDS, THEN",LET YC 
URSELF. ..4 
5530 DATA '0,'8, 'E1/5, '£3/4,'0 
5540 DATA 'H,NOW YOU WILL,LEARN HOW TO,RELAY THE, "NECK, SHOULDER 
S,",OND STOMACH. # 
5550 DATA THIS TONE WILL,SISNAL YOU TO,PREPARE TO,RELAY THIS, MUS 
CLE GROUP. 8, 'EL/I 
5540 DATA 'H1.N, THIS TONE WILL,SIGNAL YOU TO,PREPARE TO,RELAY TH 
E,NECK MUSCLES. #, {E1/1, 'E1/2 
5570 DATA TENSE THE,NECK BY,PLACING A HAND,AGAINST YOUR, FOREHEAD 
AND# 
5580 DATA PRESSING YOUR,HEAD INTO YOUR,HAND. DO THIS,FOR FIVE, "3 
ECONDS, THEN...#" 
5590 DATA '0, 'G, 'E1/1,'E1/2, !0 
5600 DATA 'H2.SH, THIS TONE WILL, STBNAL YOU TO,PREPARE TO,RELAK 7 
HE, SHOULDERS. #, 'E1/1, 'E2/ 
5410 DATA TENSE THE, SHOULDER BY,PUSHING THEM, INTO YOUR CHAIR. # 


I2 


5620 DATA HOLD THE TENSION,FOR ABOUT FIVE, "SECONDS, THEN",LET YO 
URSELF...#, '0 

5430 DATA 'H4.S7, THIS TONE WILL,SIGNAL YOU TO,PREPARE TO,RELAY 7 
HE, STOMACH. #, 'E1/1,'E3/2 

5640 DATA TENSE THE,STOMACH BY,SUCKING IT,IN HARD.@ 

5650 DATA HOLD THE TENSION,FOR ABOUT FIVE, "SECONDS, THEN",LET YO 
URSELF... 

5640 DATA '0,'6,'E1/1,'E3/2, 0 | 

5470 DATA 'H,NOW YOU WILL,LEARN HOW TO,RELAY THE, "THIGHS, CALVES 
"AND FEET.# 

5480 DATA THIS TONE WILL,SIGNAL YOU TO,PREPARE TO,RELAY THIS, MUS 
CLE GROUP. #,'E1/3 

5690 DATA 'H6.7, THIS TONE WILL,SIGNAL YOU TO,PREPARE TO,RELAY TH 
E, THIGH MUSCLES. #, 'E1/3, 'E1/4 

5700 DATA TENSE THE, THIGHS BY, STRETCHING, YOUR LEGS OUT, IN FRONT 

Org 

5719 DATA YOUR BODY AS,FAR AS YOU CAN. ,DO THIS FOR,FIVE SECONDS. 
THEN. ..# 2 

5720 DATA '0,'6,'E1/3, 'E1/4, '0 


RELAAAX 
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5730 DATA 'H@.C,THIS TONE WILL, SIGNAL YOU TO, PREPARE TO, RELA TH 
E,CALF MUSCLES, #, 'F1/3, E2/4 

o40 DATA TENSE THE, CALVES BY,RESTING YOUR,HEELS ON THE, FLOOR W! 
THE 

sfoQ DATA YOUR LEGS OUT, IN FRONT OF YOU. NOW DRA, YOUR FEET,UP T 
OHARDE : 
3760 BATA YOUR FACE...,FEEL THE TENSION, AND THEN LET, THESE MUSCL 
ee 

o?70 BATA '0,'G, 'E1/3, E274, '0 

a/80 DATA 'H9.F, TRIS TONE WILL, SIGNAL YOU TO,PREPARE TO,RELAY TH 
E,FOOT MUSELES.#, 'E1/3, (3/4 

u/90 DATA TENSE THE,FEET BY, CURLING YOUR, TOES INWARD. AND SQUEE?! 
NG 

s800 DATA THEM HARD. TENSE, THE FEET THIS, WAY FOR ABRUT,FIVE SECO 
NDS. THEN...# 

Joi0 DATA 10, 'G, (E1/3, '£3/4, '6 

J820 DATA 'H,2, FENDE 

Data for the review requence. 


6000 DATA '15, ‘A343, REVIEW SEQUENCER, 'D4 
6010 DATA 'P,"HANDS, BICEPS, ",ZAND TRICEPS. , '£1/8,4 

6020 DATA ‘HANDS, !H52H, 'E1/9, 'E1/7,%, 'K, !F 

6030 DATA 'L, 1E1/, !E1/7, 'K, (F 

6040 DATA 'JBICEPS, 'H32B,/,!E1/8,'E2/7,8, !K,'F 

b050 DATA 'L, 'E1/8, !€2/7,'K, 'F 

6060 DATA ‘TRICEPS, 'H32T, /, 'E1/8, 'E3/7 

6070 DATA #, !K, 'F 

6086 DATA 'L,'E1/8,'E3/7,'K, 'F 

6090 DATA 'H,"LZZFOREHEAD,","NOSE, AND MOUTH", 'E1/5,¢ 

6100 DATA ‘JFOREHEAD, !HOLF, '€1/5, 'E1/4 

b110 DATA #, 'K,'F, ‘L, 'E1/5, 11/4, 'K, 'F 

6120 DATA JNOSE, 'HLIN, 'E1/5, 'E2/4 

6130 DATA #,'K,'F,!L, !E1/5, 12/6, 'K, IF 

6140 BATA ‘IMOUTH, 'HIIM, 'E1/5, 'E3/6 

b150 DATA #,'K,!F,!L, 'E1/5, '£3/4, 'K, 'F 

$160 DATA 'N-4,'H, "NECK, SHOULDERS,", ZAND STOMACH, ,'E1/1,8 
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6170 DATA 'JNECK, 'HIIN, 'EL/1, 'E1/2 

6180 BATA #,'K,'F, iL, 'Ei/1, 'E1/2,'K, 'F 
6150 DATA 'JSHOULDERS, 'H22SH, 'E1/1, 'E2/2 
6200 DATA #,1K FIL, 'E1/i, (62/2, 'K, 'F 
6210 BATA 'JSTOMACH, 'H4257, 'E1/1,'E3/2 
6220 DATA 1K, 'F LIL, TEY/i, 63/2, 1K, 'F 
4230 DATA TH, “THIGHS, CALVES, ", ZEZAND FEET.,'E1/3,# 
6240 DATA 'JTHIGHS, 'H43T, 'E1/3, 'E1/4 
4250 DATA #,'K, 'F,!L, 'E1/3, (E174, 'K, 'F 
6260 DATA 'JCALVES, 'HBSC, 'E1/3, 'E2/4 
6270 DATA #,'K iF, 'L, 'EL/3, '£2/4, 'K, 'F 
6280 DATA 'JFEET, 'HOSF, 'E1/3, 'E3/4 

8290 DATA #, IK PF, 'L, {E1/3, (63/4, 1K, IF 
6300 DATA 'H,d, SENDS 

Data.for the menu. 


7000 DATA 'D, CZERELAXATION, LZZZETRAINER, (MG, (NG4,RETREVIEW SEQU 
ENCE EZZENTIRE PROGRAM, DZZDEEP BREATHING, ZZZTRAINER, ‘NGS, 'N1, $EN 
TER CHOICE?, #ENDS | 


Subroutine to initialize graphics and sound variables. 


Point to proper data. Check if ENTER is being depressed. 
10200 NAME? 10000:EF=(PEEK (14400) ANDES 
Read the data for the graphic figure. 


10010 FORJ=17T010:READII 

10020 FORJZ=1T001:READD: MA$=MAS+CHRS$ (D+128) sNEYTI2 

10030 IFD< SL OTHENMAS=MAS+CHRS (24) +STRINGS (31, 24) 

19040 IFEFTHENPRINT#192, MAS: 

10050 NEXTI 

10060 DATA 6,9,0,0,40, 63,6! 

10070 DATA 8,0,0,48,54,63,41,49, 14 

10080 DATA 9,32, 62,47, 63,43,63, 63,47, 52 | 

10090 DATA 11,65, 17,42,63,63,63,43,0,11,61,16 

10100 DATA 11,2,47,52, 63,63, 63,21,9,0, 10,11 

10110 DATA 7,0,0,2,63,15, 47, 21 

10120 DATA 7,9,0,42, 43,0, 42, 43 

10130 DATA 7,0,0,42,23,0,2,63 

10146 DATA 8,0,0,59,5,0,0,47, 16 

19150 DATA 9,0,14,7,0,0,0,2,15,4 

Read the data for the graphic character set. 

10140 FO=63:L0=90:EC=4: DIMLT$ (LC+EC-F C413 

19170 FORJ=FCTOLC+EC: Q=J-FC 

iidd REAR 

19190 FORI2=1702 

10200 FORI3=17T001 

iO210 READD: LT$(Q)=LT$() +CHR$ (D+128) 

10220 NEXTIS 

10230 IFUZ=1THENLT$(Q)=LT$(O) +CHR$ (26) +STRINGS$ (31,24) 
RELAAAX 
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10240 NEYTS2: IFEFTHENPRINTOINT (0/10) 4192+ (Q-INT(Q/10) 8 10 


Sia 


10250 NEYTJ 

10240 DATA 2,4,25,0,4 

10270 DATA 1,0,¢ 

10280 DATA 3,54,51,20,5,0,5 
10290 DATA 3,55,51,4, 13, 12, 
10300 DATA 3,22,3, 1.9, 12,4 


fpeecte 


10310 DATA 3,23,3, 20,13, 12,1 
10320 DATA 3,55, 19,1, 13, {2,4 
{0330 DATA 3,55,19,1,5,0,0 
10340 DATA 3, 22,35, 17,9, 12, ! 
10350 DATA 3,53,48,21,5,0,5 
10360 DATA 2,43, 1, 14,4 
10370 DATA 3,0,43,1, 

10380 DATA 3,53, 48,5, 

10390 DATA 3,21,0,0,! 

10400 DATA 3,29, 24,24 

19410 DATA 3,29, 16,21 

10420 DATA 3,22,3,20, 

10430 DATA 3,55,51,4, 

10440 DATA 3,22,3,20, 

10450 DATA 3,55,51,4,5,2, 
10440 DATA 3,38,51,9, 

10470 DATA 3,3,23,1,¢ 

10480 DATA 3,21,0,21,9 
10490 DATA 3,37,32,5, 

10500 DATA 3,21, 16,21, 7,255 
10510 DATA 3,9,24,1,4, 

10520 DATA 3,9,24,1,0, 

10530 DATA 3,3,27,1,! 

10540 DATA 2,0,0,12,0 

10550 DATA 2,14,1,0,0 


105460 DATA 2,0,0,14: GDS 
10570 DATA 2,3,5,0,9 (by 
Read the sound data. 

10580 NS=9: BINS(9):FORJ=1 TONS 

i596 READST, SD | 
iG610 NEXTJ 

{0420 DATA 77,19,38,38,55, 27, 26,55, 57,25, 14, 100 
10430 DATA 7,200, 30,47, 13, 108 

{0640 RETURK 

Program termination. 


32767 END 
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Subroutine to place the machine language routines into high 
memory and to tie them into the NAME command. 


60000 Y=lil:¥=255:POKE-1, 0: 1FPEEK (- LIC OOTRENS= 171: POKE-16385, 0:31 
FPEEK (-16385) ¢ SOTHENS=127 
40010 POKEL452, X:POKE14541, ¥:CLEARSO: AL=PEEK (1 b561)+2: AZ=PEEK (i 


— «6562) ARAL+A2E256: 2=A-1: FORY=170143: 22141: 1224655368 (2932767) 


60020 READY: Zi=Z1+¥:PQKEZ, Y:NEXTX 

AOO30 IFZIC}L4G32THENCLS:PRINT"DATA ERROR. PLEASE CHECK TH 
ESE LINES: ":PRINT:LIST100-200 

60040 IFPEEK (16395) < 201 THENCMD"T":POKE1 4308, 0 

60000 POKEL6782, 195: POKE16783, Al: POKE1&784, a2 

60060 GOTO500 


SWAT 
For TRS-80® RELAAAX.,.. TA {3 i, K a 
SWAT SWAT 

LINES CODE LENGTH LINES CODE LENGTH 

sl aes 1 YV J13 S480 - 3060 ar a7 
tos or 62 370 Qo79 - 9640 EE 20 
S00 - 660 BA 299 code Sa/20 SF 03 
6/0 - 1240 YI 256 v750 - 9800 HP a4! 
1270-21) YR 259 3810 - 4090 KB 393 
2149 - 2349 Xe 420 8100 - 4210 HL 43i 
2300 - 2440 KA 436 6220 - 10010 FN 459 
2470 - 2700 JA 268 10020 - 1¢130 Ri 342 
2710 - 3050 GC du? 10140 - 10250 PF 288 
3060 - 3140 BC 048 19260 - 10370 EG 204 
3150 - 3220 VO 361 10580 - 10490 JS 269 
3250 - 93500 YU J25° i500 - 10610 UA 233 
3510 - 9590 iC 360 10620 - 60060 HF 429 
9400. - 34706. ss 048 

RELAAAX 
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for Preschool Children 


by George Blank 


Nine games for Pre-school Children is a collection of short games 
designed for very young children. It runs on a TRS-80® Model | or III 
with 32K RAM. | 


Nine Games for Preschool Children is a collection of nine programs that ex- 
ist in the computer’s memory together, but execute one at time. They are tied 
together by a menu that displays symbols for each program. To go from the 
menu to one of the programs, the child simply enters the number beside the 
symbol for the program. The user may return to the menu from any program 
by pressing the CLEAR key. The one key that will disrupt the programs is 
BREAK, but my four-year-old, who did not know the alphabet, learned to 
type RUN after watching my six-year-old do it once. I kept a card with the 
word RUN on it near the computer to remind him, but he never looked at it. 
An adult should assist until the child can do these operations: 


@ Press a number to go from the menu to the desired program. A child too 
young to recognize the numbers can do it by learning the location of the ‘‘1,”’ 
and counting. | | 
@ Press CLEAR to switch programs. 

@ Learn not to press BREAK, or learn to type RUN and press ENTER. 


I taught these three things to four-year-olds in fifteen minutes. My boys 
taught their friends in five. Children younger than four should have adult 
supervision at the computer. A nine-month-old girl who visited our home fre- 
quently loved to play REPEAT, so the games have potential for the very 
young. 


LETTERFUN 

The screen functions as a blackboard, accepting and displaying whatever let- 
ters the child presses. When he presses ENTER, the computer animates those 
characters by repeating them, moving them around on the screen, or even ex- 
ploding and scattering them. This game increases letter recognition, pattern 
discrimination, and interest in words. 


ABC 


Introducing children to the alphabet’s characters, and the concept of a fixed 
order is the object of this game. Its design moves the child from the point at 
which he must say to himself ‘‘ABCDEFGHIJKLM...’’ before pressing ‘‘N,”’ 
to the place where he knows immediately that ‘‘N’’ follows ‘‘M.’’ If the child 
selects the next letter in sequence, the figure on the screen smiles. If the child is 
wrong, the man shakes his head. 


LETTER WARS 


Lower-case letters are harder than capitals for children to learn. This game 
gives them practice in associating the large lower-case letters on the screen with 
the capital letters on the keyboard. It is quite effective with a group — the 
children can talk about the letters, and teach each other the names and 
possibly even the sounds, while also acquiring skills of cooperation and 
growth. The space battle scores are based on the accuracy of the guesses, and 
provide motivation. 


REPEAT 


Again, the video display serves as a blackboard, but the computer prints 
each letter thirty-two times to fill up a screen row. All four arrow keys are 
enabled, so that the children can print rows of arrows on the screen (Model I 
only). Repeat develops the concept of pattern recognition, to prepare children 
for word recognition and art. My children, when they were young, loved to use 
the slash, greater than, and less than signs to make ‘‘tire tracks’’ across the 
screen. 


NAMES 


This is a good introduction to the computer for children old enough to 
recognize their own names in written form. An adult should enter up to six 
names (the child, family members, pets, friends) and the computer will select 
them at random and print them on the screen, pausing after each set of fifty 
names. Beginning readers find this is also good practice for learning new 
words. When playing on their own, children have fun entering names, pat- 
terns, or words, and delight in the random display. To practice with less than 
six names, hit ENTER after the last entry. 


BLACKBOARD 


This game simply uses the screen as a blackboard. The only special feature is 
that the arrows are active. An unshifted left arrow erases, but all other arrows, 
both with and without shift, print the arrows (Model I only). Note: On newer 
Model I’s the shift-down arrow does not generate an arrow character. 
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TROLL’S GOLD 
Using the arrow keys, the child runs through a maze in which doors open 
and close at random. The object is to go to the pile of gold in the lower right 
hand room, get the gold, return to the first room, and go up the stairs without 
being caught by the troll. The child presses the appropriate arrow when a door 
opens, and the computer pauses for an instruction. If he does not enter a direc- 
tion, the computer waits briefly, and then continues. Troll’s Gold teaches 
directions and eye-hand coordination. 


MATH DRILL 


This one teaches elementary addition and subtraction. The numbers to be 
added or subtracted are all single digits, and subtraction never results in a 
negative number. Designed for young children, it displays graphic blocks to 
aid in visualizing how these arithmetic processes work. 


CALCULATOR 

Think of this as a normal four-function calculator, except that the results 
appear in the form children will use in school. In division problems, the re- 
mainder, if any, is displayed. The following format must be used to enter 
problems (young children may need help with this): 


(First Number) 
(Operating Instruction) 
(Second Number) 
(ENTER or space bar) 


The acceptable symbols for Operating Instructions are: 


Add: + or;orA 
Subtract: -— or S 
Multiply: X or M or * 
Divide: / or D 


George Blank has a degree in education, with graduate study in child 
development and counseling, plus a wide variety of teaching experiences in in- 
dustry, the military, public and private schools, and churches. In addition he is 
a father, computerist, and former Editor of SoftSide. 


FALL 
CONSTELLATIONS 


by Kirke Darbe 


Fall Constellations requires a TRS-80® Model | or III with 16K. 


We’ve got a show! I mean a SHOW — complete with animals, birds, music, 
royalty, damsels in distress, heroes — EVERYTHING. Best of all, it’s free. 
When is it? Every night this fall — and you can see the annual light show spec- 
tacular, the Fall Constellations, revealed in the heavens above your home. 

Fall Constellations introduces the beginning stargazer to some of the cosmic 
sights observable in the fall sky. More experienced stargazers will appreciate 
the help it offers in locating interesting phenomena. 

Your first option is to see the instructions (a brief explanation of procedures 
and symbols), or to go straight to the menu listing the constellations available. 

After you select a stellar object, the screen clears and stars appear. Dim ones are 
represented by an ‘‘X,’’ moderately bright by ‘‘*,’’ and a large hexagon represents 
the very bright. Background stars show up as dots. Other interesting objects, such 
as galaxies, nebulae, and clusters, show up as letters. The constellation’s name, 
and any items of note about it or nearby space, appear at the bottom of the screen. 
Also at the bottom is the code for the stars. When you are through looking at a 
particular constellation, press any key to return to the menu. To stop viewing en- 
tirely, press ‘‘0’’ (zero) when asked to input a selection. 

I selected the constellations strictly according to personal preference. They 
appear on screen without reference to direction, though north generally is at 
the top. Each evening, the stars appear to have moved across the sky even 
though viewed at the same time each evening. They also rise and set as the 
Earth rotates. Stargazers must use their imagination to fill in the flesh around 
the starry bones. 

For those interested in further details, the sources used in writing this pro- 
gram were the September, 1982, issue of Astronomy, a seasonal star chart, and 
a computer generated star map. Any differences between them were resolved 
on personal preferences. 


Variables 


A: Data loop counter ; N: Menu selection. 

C: Loop used when reading con- S$: Graphic picture of a star. 
stellation names from data. V: Equals 15360, the start of video 
CN$: Name of constellation read. RAM. 

DT$: Contains a number of spaces X,Y,Y$: Data variables. 


and periods for menu display. Z$: Input variable string. 
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So So Go G9. 55 55 5$<55 $9 $5 95 


35 TRS-80 BASIC 55 
so ‘Fall Constellations’ $5 
55 Author: Kirk DB. Darbe 55 
55 Copyright © 1983 55 
83 SoftSide Publications, Inc $$ 
55 55 
25 ca oo So-55 56756 55.5§5 65 55 


If you don’t wish to type this program, it is 
available on issue #43 SoftSide DV and CV. 


Clear string space and set constants. 

100 CLEARZS0 : 

110 Vi3360s S$=CHRE (166) +CHRE (164) +CHRS$ (132) 

LOD SS! Sei ee eS oe ee 


Print title block and present instruction option. 


130 CLO: PRINT@268, CHR${23) ;"FALL CONSTELLATIONS": PRINTS474, "BY": 
PRINT@O58, "KIRK D. DARBE":FORX=170500:NEXT:PRINT@944, "DO YOU NEE 
D INSTRUCTIONS"; :2$=°Y": INPUTZ$: IFLEFT$(7$, 1)="¥"ORLEFT$(7$, 1)=C 
HR$ (121) THENGOSUBSS9 


Print the menu of available constellations. 

14G CLS:PRINT"THE FOLLOWING CONSTELLATIONS ARE AVAILABLE FOR VIE 
WING: ":PRINT 

130 PRINT"CONSTELLATIONs TAB (42): "NUMBER": RESTORE 

140 FORCH1TO1G:READCNS: PRINTCNS: MIDS (DTS, LEN(CNG$) +1): CsNEXTE 
170 DATA "CYGNUS THE SWAN", "LYRA THE HARP", "AQUILA THE EAGLE" 
{80 DATA "ANDROMEDA THE MAIDEN*, "PEGASUS THE WINGED HORSE" 

190 BATA "CEPHUS THE KING", “PERSEUS THE HERD" 

200 DATA "CASSIOPEIA THE QUEEN’, “LITTLE DIPPER", "URSA MAJOR" 


Accept menu selection. 


210 PRINT#B94, CHRS(30); "PLEASE ENTER THE NUMBER OF THE CONSTELLA 
TIGN YOU WANT": sN=-{: INPUTN: IFNCOORNIOTHEN210 

Exit if a “O” is typed as the menu option. 

220 IFN=QTHENSS4 


Read through the constellation data until we reach the desired 
constellation. 


230 TFN=1THEN2860 

240 FORA=1TON-1 

250 READX, Ys [FX¢OTHEN250 

260 READY, ¥$: IFY#<>"END" THEN240 
270 NEXTA 


Print the bottom of the screen display and background stars. 


280 CLS:PRINTA748, STRINGS (15, 176) s:PRINT@B46, CHRS (191): STRINGS (4 
a,176); 


290 PRINTOB97, "NOTE: °3:PRINTO960,5$3"-BRIGHT &%-MNODERATE X-DIN 
 ~“BACKGROUND* 5 
300 FORX=17020:POKEV+RND (767) , 44: NEXTY 


Display constellation and pertinent information. 


S10 READY, Ys LFX< 0 THENPOKEV+X , ¥: 6070310 
320 READY, ¥$: IFY$="END* THENS40ELSEIFY$="X *THENY$=S$ 
330 PRINTOX, Y$;:G0T0320 


Wait for a keypress before returning to the menu. 
340 Z$=INKEY$: IFZ$="" THENS40ELSE140 


Display farewell message. 


300 CLSsPRINT" THAT CONCLUDES THIS SHOW. FOR THESE AND OTHER G 
REAT SIGHTS, ":PRINT"JUST STEP OUTSIDE ON ANY CLEAR, DARK NIGHT T 
HIS FALL. AFTER":PRINT"ALL, IT’S FREE!" 

360 PRINT:PRINT® REMEMBER TD DEPOSIT YOUR TRASH IN THE CONTAINE 
RS AT THE EXITS." 3 

370 5070660 


Instructions subroutine. 


380 CLS:PRINT" YOU WILL BE GIVEN A MENU OF CONSTELLATIONS TO 
CHOOSE FROM. ":PRINT*AFTER YOUR MAKE YOUR SELECTION, THE SCREEN 
WILL CLEAR AND THE*:PRINT“REQUESTED STAR FIELD WILL APPEAR USING 
THE FOLLOWING SYMBOLS: “ 
390 PRINT: PRINTTAB(9) $$$; "-BRIGHT STARS": TAB(34):"% -MODERATELY 
BRIGHT STARS" :PRINT:PRINTTAB(10);"X -DIM STARS"; TAB(34):". -BACK 
GROUND STARS" 
400 PRINT:PRINT"GTHER OBJECTS OF INTEREST WILL BE SHOWN WITH THE 
SE SYMBOLS: ":PRINT:PRINTTAB(10};"6 - GALAXIES N - NEBULA 
C - CLUSTERS" :PRINT:PRINTTAB(26): "HIT ENTERD" 
410 Z$INKEY$: IFZ$=""THEN4IO 
420 CLO:PRINT" AT THE BOTTOM OF THE DISPLAY WILL BE THE NANE 
OF THE": PRINT"CONSTELLATION BEING VIEWED, ALONG WITH SOME BRIEF 
NOTES ON IT.":PRINT“WHEN YOU ARE DONE VIEWING, HIT ANY KEY TO RE 
TURN TO THE MENU. * 
430 PRINT:PRINT" TO EXIT THIS PROGRAN, TYPE "sCHRE(34):"0"sCH 
R$(34);" WHEN ASKED TO MAKE YOUR“:PRINT"CONSTELLATION SELECTION 
FROM THE MENU. ° 
44Q PRINTsPRINTTAB(26);"<HIT ENTER>" 
450 1$=[NKEY$: IF2$=" "THEN4SOELSERETURN 


Data for constellations. 


440 DATA 526,42, 466,42,342,42,217,42, 612, 42,89, 89,478, 98, 545, 88, 
406,67,0,0 

470 DATA 144, "DENER", 209, "X", 834, "CYGNUS", 904, "(ALSO CALLED THE 
NORTHERN CROSS)-THE STAR CLUSTER", 0, "END" 

480 DATA 482,42,542,42, 291,88, 351,88, 480,78, 494, 68, 0,0 

490 DATA 143, "VEGA",228,"X",836, "LYRA", 904, "THE RING NEBULA AND 
A VISIBLE DOUBLE STAR (D)",0, "END" 
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500 DATA 211,42,89, 88,337, 88,468, 88, 410, 88,529, 88, 548, 89, 159, 67, 

0,0 : 

S10 DATA 264, "ALTAIR ",273,"X",836, "AQUILA", 904, "THE STAR CLUSTE 
R",0,END 

520 DATA 414,71,595, 42,439, 42,596, 42,607, 42,614,42, 404,88, 472, 88 
, 544,88, 550, 98,574, 88, 753,88, 0,0 

530 DATA 559, "GREAT SQUARE", 834, "ANDROMEDA",904, "THE ANDROMEDA & 
ALAXY AND GREAT SQUARE (PART OF PEGASUS) *,0, "END" 

540 DATA 143,42, 160,42, 100,88, 394,88, 417,88, 488, 88, 494,88, 447, 88 
376, 47,0,0 

550 DATA 272,"GREAT SQUARE",836, "PEGASUS", 904, "THE GREAT SQUARE 
AND STAR CLUSTER", 0, "END" 

560 DATA 549,42, 94, BB, 343,88, 358, 88, 403,88, 0,0 

570 DATA 834, “CEPHUS", 904, "THE STEEP-RODFED HOUSE SHAPE", 0, "END* 
580 DATA 38,67,39,67, 223,42, 420,42, 98, 88, 161,98, 215, 98,290, 88, 28 
6,88, 355,88, 410,89, 538,89, 0,0 

590 DATA 728,"X",731," PLEIADES", 834, "PERSEUS" ,904, "THE DOUBLE C 
LUSTER AND PLEIADES GROUP (PART OF TAURUS)", 0, "END® 

G00 DATA 161,88, 350,88, 418, 42,544, 42,614, 42,494,47,0,0 

b10 DATA 834, "CASSIOPEIA",904,"THE M OR W SHAPE AND THE STAR CLU 

STER" 0, "END" 

620 DATA 139,42, 274,88, 410,88, 435, 42,485, 98, 567,88,615,88, 0,0 
430 DATA 72, "POLARIS", 932, "LITTLE DIPPER", 904," (PART OF URSA MIN 

OR) - POLARIS THE NORTH STAR", 0, "END" 

G40 DATA 26,42, 198,42, 203,42, 259,42, 154,43, 218, 43, 109,88, 169,98, 
179, 8B, 209, 88, 233,88, 275, 88, 280, 78,302, 88, 340,98, 371,88, 389, 71,4 
10,88, 484,98, 535,88, 0,0 

650 DATA 28, "POLARIS", 139,"BIG DIPPER",B34,"URSA MAJOR", 904, "THE 
POINTER STARS (+ SIGNS), GALAXY AND NEBULA",0, "END" 

40 END 
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@ Use And Enjoy These Programs Right 


Away! 


@ Avoid Worry About Typos! 


@ Get Additional Programs to Enjoy 


Without Typing. 


Order this Issue’s Programs on Disk or Cassette! 


Send the coupon below to: 
SoftSide Publications, Inc. 
10 Northern Blvd. 
Northwood Executive Park 
Amherst, NH 03031 
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ORDER THIS ISSUE’S MEDIA 

Having difficulty finding the time to input the programs 
from this issue of SoftSide Selections? Don’t despair — the 
cassette and disk versions are still available! And, each DV 
(disk version) contains an additional program. 

Cl #43 DV $16.00 OC #43 CV $8.00 

Disk Only: 0 Apple® 0 1BM®PC 

Disk or Cassette: 0 Atari® O TRS-80® Mod. | 0 TRS-80® Mod. II! 
Name 


a 


Address, 


a re ee 
City/State: 2 ip 

C) Check or Money Order 

C) MasterCard O VISA 
Name of Cardholder 

MC or Interbank#/VISA# 
Exp. Date_____ Signature 


er oY 


A product of Sonside Pubii 
cat 
10 Northern Bivd., Amherst, Nit eon; 


Prices subject to change without notice. Apple®, IBM®, Atari® and TRS-80® are registered trademarks of The Apple Computer 
Company, International Business Machines, Inc., Warner Communications, and The Tandy Corporation respectively. 
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Issue 43 Adventure: 
High School 


Who said that going to 


credit. Satisfy your 
teachers’ requirements, 


a high school is not an 
Hi h adventure? You must go 
to all your classes, and 
pass six subjects, and 
graduate. Don’t get 


complete all the ac- 
suspended too often, or 


tivities before earning 
. you might get expelled! 
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SoftSide Adventure Series =6V =DV 


What would you say to a program that asks, ‘‘What do you want to do?’’ 
Well, you might say, ‘‘GET RUBY”’ or KILL GIANT’’, because that’s how 
the SoftSide Adventure Series works. 

Each issue, the latest Adventure takes you to another world of fantasy, 
puzzles, and thrills. Your first task is often simple survival — and even that 
basic feat can be daunting until you figure out the right way to do it. You’ll 
have to be ingenious and persevering, and your rewards will be great. 

To ‘‘win’’ a fantasy/adventure game, you must solve the author’s devious 
puzzles, and overcome the obstacles that confront you — whether they be 

- dragons or desperadoes. Death, should it come, is transitory — just re-run the 
program to live again! 

Experienced adventurers make detailed maps of each world as an aid to ef- 

fecting a solution, but you can omit this exercise if your memory is excep- 
tional. Express your wishes with one- or two-word commands like, ‘‘LOOK’’, 
‘“‘DROP KNIFE’’, or ‘‘GET RUBY’’. Use ‘‘I’’ to get an inventory of your 
possessions. The introduction to each Adventure explains this more fully. 

To start up the Adventure, just run the program called ‘‘SINTRO’”’ or ‘‘IN- 
TRO.BAS’’ on your disk, or select the Adventure from the DV menu. On 
cassette, the INTRO program is the one just before the Adventure, which is 
the last program on the tape. 


The Adventure runs on any TRS-80 with at least 16K RAM (32K disk). 


Here are the encrypted hints for Arabian Nights, 
the Adventure in Issue 42. 


To kill the dragon: DVZI ZMW IFY GSV IRMT. 

To kill the serpent: DVZI ZMW IFY GSV ZNFOVG. 

To kill the snake: FHV GSV HVIKVMG PROOVI. 

To kill the Roc: FHY GSV HXRNRGZI. 

To kill the cyclops: HSLLG SRN DRGS GSV WRZNLMW ZMW GSV 
HORMTHSLG. 

To get past the vultures: WIRMP LNZI’H DZGVI. 

To kill the red genie: LUUVI SRN Z TLYOVG UFOO LU VO SZYRY’H 
DZGVI. 

To kill Roxor: IFY GSV NZTRX OZNK. 

To get the eggshell: XFG GSV VIT DRGS GSV HXRNRGZI. 

Open doors and gates by: SRGGRMT GSV TLMT. 

To escape from Roxor’s secret room: SRG GSV TLMT. 

To get the magical cloak: TREV GSV TLYOVG GL GSV HSLKPVVKVI 
ZUGVI PROORMT GSV IVW TVMRV. 

In sandy places: WRT ULI ZOO BLF’IV DLIGS. 

To fly the magic carpet: HGZMW LM RG ZMW HZB ZDZB. 


SoftSide Selections #43 : 2 27. 


SoftSide Selections #43 


Map Your Adventure Here 
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Like SoftSide? Wait ’til you’ve seen our BEST! 


The Best 
of SoftSide! 


For the past four years, SoftSide Magazine has been bringing Apple®, Atari®, and 
TRS-80® owners the best in BASIC software. But now you can do even better... The 
Best of SoftSide. From all our back issues, we’ve selected the most useful...the most 
entertaining...the most fun programs SoftSide has ever published. 

The Best of SoftSide is available in three versions...one for Apple, Atari, and 
TRS-80. Each contains page after page of BASIC code for adventures, simulations, 
practical applications, and much more. 


To order your copy of The Best of SoftSide, fill out the coupon, and mail it 
along with $19.95 to SoftSide, 10 Northern Blvd., Northwood Executive Park, 
Amherst, New Hampshire 03031. 


The Best of SoftSide 


CL} YES...1 want to enjoy the best programs — Games, Utilities, 
Adventures — from SoftSide Magazine's past. Please rush my 
copies of The Best of SoftSide to: 


Name 


TSS Sc eee 
Ci te State. Zip = 
Here’s my order For The Best of SoftSide 


Quantity Quantity 
Computer Book Only | Book plus Disk 
$19.95 ea. | $68.95 ea. 


Apple® esses 


CL] I’ve already ordered The Best of Soft- 
Side book. I’m enclosing $49 for the disks 
only. 


Total Enclosed $ 


i 
TRS80°Mod1 [| | 
et ee eee 
He 


VISA/MasterCard# and Interbank# Exp. Date 
Name of Cardholder 
Signature 


I’m paying by: L) Check (© Money Order 
CL] VISA CO) MasterCard 


(Foreign order please include $5 postage. PAY IN USA FUNDS ONLY.) 
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General Information 


These are the standard procedures for the programs published in 
SoftSide Selections. Sometimes, a particular program does not lend 
itself to these procedures. Always read the specific instructions ac- 
companying a program. They will instruct you if there are any 
variances from the following procedures. Also, back issues of Soft- 
Side may differ in some details. 


TABLE 


At the conclusion of each program listing in SoftSide Selections, 
we include a SWAT (Strategic Weapon Against Typos) Table. SWAT 
for the TRS-80 appeared in SoftSide Issue #30. If you missed Issue 
#30, we’ll send you a free reprint of SWAT. Send a self-addressed, 
stamped envelope to: SoftSide Publications, Inc. 

Department SWAT 

10 Northern Blvd. 
Northwood Executive Park 
Amherst, NH 03031 


Please be sure to tell us that you have a TRS-80 computer. 


Magnetic Media 


Disks are available in Model | or Model III format. They contain the 
DOSPLUS operating system. A cover program runs automatically 
when you boot the disk. Back issues earlier than May 1981 are 
available only in Model | format. If you have a two-drive Model lil, you 
can convert such disks with the CONVERT utility. 

Tapes CLOAD in the normal manner on Model I’s, and at low speed 
(500 baud) on Model Iil’s. The first program is a cover/menu program; 
side two of the tape is a duplicate of side one. 

SoftSide Selections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results in damage to the sen- 
sitive magnetic media. If, after a reasonable number of attempts on 
well-adjusted, clean equipment, you are unable to load a program, 
return it to us along with an exact explanation of your problem. We 
will send you a replacement copy. 

SoftSide Selections media are not copy protected. We urge you to 
make an archival backup copy of your disk or tape aS soon as you 
receive it, as our replacement policy is valid only for 30 days. Please 
resist the urge to give away copies of copyrighted material. 


Line Listings 


The line listings in this booklet are in standard 64-column format, 
and they appear exactly as they should on your screen when you type 
LIST. | 


System Requirements 


The necessary memory and other equipment you need to run a pro- 
gram are listed in the introductory paragraph of the article for each 
program. (Also see the SoftSide Adventure Series elsewhere in this 
booklet.) 


me SofbSide_ 
Selections 


Here’s SoftSide Selections, the handy, pull-out 
booklet with program listings for your TRS-80 
Model | or IIl computer. This issue, SoftSide 
Selections for the TRS-80 features: 


@ Relaaax... — SoftSide has brought you pro- 
grams that will keep you up at night — this one, 
developed by two psychologists, may just help 
you get to sleep. | 


® Fall Constellations — See the constellations 
of the Fall sky right on your TRS-80’s screen. This. 
program can help you learn the names and con- 
figurations of many major star patterns. 


@ TRS-80 DV Bonus Program: 

Nine Games For Pre-school Children — Small 

children can use the computer, too, with these nine 

engaging activities. There’s even an “arcade” 
- game geared for the little ones. 


® The SoftSide Adventure Series — High School, 
by David Pleacher 

You are in high school, and who said that going 
to high school is not an adventure? Go to all your 
classes, and complete all the activities before 
earning credit. Don’t upset the assistant principal, 
or you might get suspended — or even expelled! 
Satisfy your teachers’ requirements, pass six sub- 
jects and graduate. 


i a 
SOFTSIDE PUBLICATIONS, INC. 


Amherst, New Hampshire 


